home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / misc / ace-2.0.lha / MAIN.lha / include / fexists.h next >
Encoding:
Text File  |  1994-01-10  |  335 b   |  20 lines
  1. { FEXISTS(x$) -- returns true if file exists otherwise false.
  2.  
  3.   Author: David J Benn
  4.     Date: 28th February 1993,
  5.       2nd January 1994 }
  6.         
  7. sub fexists(x$)
  8.   if x$="" then 
  9.     fexists=0
  10.   else
  11.     open "I",#255,x$
  12.     if handle(255) <> 0& then 
  13.       close #255
  14.       fexists=-1
  15.     else 
  16.       fexists=0
  17.     end if
  18.   end if
  19. end sub
  20.